GTEMP12
COMPOSE-FINAL&STRUCTURE-DIFF
:(CHANGE-B GTEMP12)
WORTH
... WORTH (100 310 10 10 10))
tty:

*↑ P
(DEFN (ANY1OF &) UP (COMPOSE) GENL (COMPOSE) D-R (OSET &) ALGS (ANY1OF &
**) WORTH (100 310 10 10 10))
*2 PP
  (ANY1OF (APPLYB (QUOTE COMPOSE)
                  (QUOTE ALGS)
                  (QUOTE FINAL)
                  (QUOTE STRUCTURE-DIFF)
                  BA1 BA2))
*↑ 8 PP
  (OSET (STRUCTURE STRUCTURE ORD-OBJ ANYTHING))
*NX NX PP
  (ANY1OF (PROG (X)
                (SETQ X (APPLYB (QUOTE STRUCTURE-DIFF)
                                (QUOTE ALGS)
                                BA1 BA2))
                (APPLYB (QUOTE FINAL)
                        (QUOTE ALGS)
                        BA3)))
*OK

COMPOSE-FINAL&STRUCTURE-DIFF, WORTH
(ANYB-EXS)
:(* NOTE THAT IT RE-DEFINED INTERESTING-COMPOSE EVEN THO IT EXISTED!!
ALSO, NOTE THAT THE ALG (D/R TOO) ARE WRONG FOR THIS COMPOS.)
NOTE
: